home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / colbar1a / colbarmo.bas < prev    next >
BASIC Source File  |  1999-10-09  |  496b  |  20 lines
  1. Attribute VB_Name = "ColBarModule"
  2. Public Sub ColBar(Obj As Object, St%, H%, R%, G%, B%, RE%, GE%, BE%)
  3. Dim H2%, H3%, IvR%, IvG%, IvB%
  4. Obj.AutoRedraw = True
  5. Obj.ScaleMode = 3 'pixel
  6. H3 = Int(H / 2)
  7. IvR = Int(RE - R) / H3
  8. IvG = Int(GE - G) / H3
  9. IvB = Int(BE - B) / H3
  10. Do While H >= H3
  11. Obj.Line (0, St + H2)-(Obj.ScaleWidth, St + H2), RGB(R, G, B)
  12. Obj.Line (0, St + H)-(Obj.ScaleWidth, St + H), RGB(R, G, B)
  13. H = H - 1
  14. H2 = H2 + 1
  15. R = R + IvR
  16. G = G + IvG
  17. B = B + IvB
  18. Loop
  19. End Sub
  20.